home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / beispiel gosub (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  382 b   |  31 lines
  1. 10 rem beispielprogramm
  2. 20 :
  3. 30 :
  4. 40 !eingabe:
  5. 50 :
  6. 60 !berechnung:
  7. 70 :
  8. 80 !ausgabe:
  9. 90 :
  10. 95 :
  11. 100 end
  12. 110 :
  13. 120 :
  14. 130 rem eingabe
  15. 140 print"[147]";
  16. 150 input "durchmesser";d
  17. 160 return
  18. 170 :
  19. 180 rem berechnung
  20. 190 a=((NULL)*d^2)/4
  21. 200 return
  22. 210 :
  23. 220 rem ausgabe
  24. 225 rem basic-befehl mit anfuehrungszeichen !!!
  25. 230 !"printa":
  26. 240 return
  27. 250 :
  28. 260 rem "printa"
  29. 270 print"[147]kreisflaeche a=";a;"mm^2"
  30. 280 return
  31.